gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGplaceXs_3.asp

    <!-- #include file="include/Config.asp" -->
<!-- #include file="include/Conn.asp" -->
<!-- #include file="include/Function.asp" -->

<%
    ''////////////// 水平排列
 
	id=trim(request.querystring("id"))
	
	
 IF isnumeric(id) then 	
	xsnr=""
		Pid=cint(id)
		Pname=trim(request("Pname"))
		Plei=trim(request("Plei"))
		Pcss=trim(request("Pcss"))
		Cid=trim(request("Cid"))
		ADids=trim(request("ADids"))

			'' 得到对齐方式
			dq=PubFgdy(Pcss,",",Ubound(split(Pcss,",")))
			
			'' 得到背景
			if PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1)<>"" then
			bg=" bgcolor='"&replace(PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1),"＃","#")&"'"
			else
			bg=""
			end if
			
			xsnr = xsnr &  "<table width='100%' height='100%'  border='0' cellpadding='0' style='border-collapse: collapse'   align='"&dq&"' "&bg&"><tr><td   valign='top' align='"&dq&"'>"	
	
		
			xsnr = xsnr &  "<table   border='0' cellpadding='0' style='border-collapse: collapse'   align='"&dq&"'><tr>"
			
			if  trim(ADids)<>"" and instr(trim(ADids),",")=0   then
			Aid=cint(trim(ADids))	
			Call GgtiaoXs(Aid)		
			else
			
			ads=Ubound(split(ADids,","))+1
			
			'' 得到每列显示数
			if isnumeric(PubFgdy(Pcss,",",4)) then
			ds=cint(PubFgdy(Pcss,",",4))
			else
			ds=Ubound(split(ADids,","))+1
			end if
			''''''''''''''''			
	
			'' 得到行间距
			if isnumeric(PubFgdy(Pcss,",",5)) then
			hjj=cint(PubFgdy(Pcss,",",5))
			else
			hjj=10
			end if
			''''''''''''''''
			
			'' 得到列间距
			if isnumeric(PubFgdy(Pcss,",",6)) then
			ljj=cint(PubFgdy(Pcss,",",6))
			else
			ljj=6
			end if
			''''''''''''''''	
			
			
			for j=0 to Ubound(split(adids&",",","))-1  '' 循环排列显示开始
			
			if isnumeric(PubFgdy(ADids,",",j))=true then
			
			Aid=Cint(PubFgdy(ADids,",",j))
			
			xsnr = xsnr &  "<td align='"&dq&"'>"
			
			Call GgtiaoXs(Aid)
			
			xsnr = xsnr &  "</td>"
			
			if (j+1)mod ds >0 then xsnr = xsnr &  FljjCode(ljj) 
			
			end if	
			
			if ds=0 or ds="" then ds=1
					
			if (j+1)mod ds =0 and j+1<ads then xsnr = xsnr &  "</tr><tr><td>"&FhjjCode(hjj)&"</td></tr><tr>"
			
			next 								'' 循环排列显示结束			
			
			end if	
			
			xsnr = xsnr &  "</tr></table>"
			
			xsnr = xsnr &  "</td></tr></table>"
			
		response.write "<script>document.write(unescape("""&escape(xsnr)&"""));</script>"

end IF


%>